GFORTRAN module created from ../fortran_libs/flibs/flibs-0.9/flibs/src/strings/csv_file.f90 on Fri May 29 17:18:27 2009
MD5:6e1142504c48b0a0be34463c10bbeb8f -- If you edit this, you'll get what you deserve.

(() () () () () () () () () () () () () () () () () () () () () () () ()
() () ())

()

(('csv_write' 'csv_file' 2 3 4 5 6 7 8 9 10 11 12 13))

()

()

(14 'csv_file' 'csv_file' 'csv_file' 1 ((MODULE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
() 0 0)
15 'csv_next_record' 'csv_file' 'csv_next_record' 1 ((PROCEDURE
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0
UNKNOWN ()) 16 0 (17) () 0 () () 0 0)
10 'csv_write_char' 'csv_file' 'csv_write_char' 1 ((PROCEDURE
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0
UNKNOWN ()) 18 0 (19 20 21) () 0 () () 0 0)
9 'csv_write_char_1d' 'csv_file' 'csv_write_char_1d' 1 ((PROCEDURE
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (
UNKNOWN 0 0 0 UNKNOWN ()) 22 0 (23 24 25) () 0 () () 0 0)
8 'csv_write_char_2d' 'csv_file' 'csv_write_char_2d' 1 ((PROCEDURE
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (
UNKNOWN 0 0 0 UNKNOWN ()) 26 0 (27 28) () 0 () () 0 0)
4 'csv_write_dble' 'csv_file' 'csv_write_dble' 1 ((PROCEDURE
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0
UNKNOWN ()) 29 0 (30 31 32) () 0 () () 0 0)
3 'csv_write_dble_1d' 'csv_file' 'csv_write_dble_1d' 1 ((PROCEDURE
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (
UNKNOWN 0 0 0 UNKNOWN ()) 33 0 (34 35 36) () 0 () () 0 0)
2 'csv_write_dble_2d' 'csv_file' 'csv_write_dble_2d' 1 ((PROCEDURE
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (
UNKNOWN 0 0 0 UNKNOWN ()) 37 0 (38 39) () 0 () () 0 0)
13 'csv_write_integer' 'csv_file' 'csv_write_integer' 1 ((PROCEDURE
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0
UNKNOWN ()) 40 0 (41 42 43) () 0 () () 0 0)
12 'csv_write_integer_1d' 'csv_file' 'csv_write_integer_1d' 1 ((
PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE
ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 44 0 (45 46 47) () 0 () () 0
0)
11 'csv_write_integer_2d' 'csv_file' 'csv_write_integer_2d' 1 ((
PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE
ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 48 0 (49 50) () 0 () () 0 0)
7 'csv_write_real' 'csv_file' 'csv_write_real' 1 ((PROCEDURE
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0
UNKNOWN ()) 51 0 (52 53 54) () 0 () () 0 0)
6 'csv_write_real_1d' 'csv_file' 'csv_write_real_1d' 1 ((PROCEDURE
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (
UNKNOWN 0 0 0 UNKNOWN ()) 55 0 (56 57 58) () 0 () () 0 0)
5 'csv_write_real_2d' 'csv_file' 'csv_write_real_2d' 1 ((PROCEDURE
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (
UNKNOWN 0 0 0 UNKNOWN ()) 59 0 (60 61) () 0 () () 0 0)
17 'lun' '' 'lun' 16 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
41 'lun' '' 'lun' 40 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
42 'value' '' 'value' 40 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
43 'advance' '' 'advance' 40 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () 0 0)
53 'value' '' 'value' 51 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () 0 0)
52 'lun' '' 'lun' 51 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
54 'advance' '' 'advance' 51 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () 0 0)
31 'value' '' 'value' 29 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () 0 0)
30 'lun' '' 'lun' 29 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
32 'advance' '' 'advance' 29 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () 0 0)
20 'value' '' 'value' 18 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () () 0 () () 0 0)
19 'lun' '' 'lun' 18 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
21 'advance' '' 'advance' 18 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () 0 0)
45 'lun' '' 'lun' 44 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
46 'array' '' 'array' 44 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 ASSUMED_SHAPE (
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () 0 0)
47 'advance' '' 'advance' 44 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () 0 0)
56 'lun' '' 'lun' 55 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
57 'array' '' 'array' 55 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () 0 0)
58 'advance' '' 'advance' 55 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () 0 0)
34 'lun' '' 'lun' 33 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
35 'array' '' 'array' 33 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 ASSUMED_SHAPE (CONSTANT
(INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () 0 0)
36 'advance' '' 'advance' 33 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () 0 0)
23 'lun' '' 'lun' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
24 'array' '' 'array' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (1
ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () 0
0)
25 'advance' '' 'advance' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
OPTIONAL DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () 0 0)
49 'lun' '' 'lun' 48 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
50 'array' '' 'array' 48 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 ASSUMED_SHAPE (
CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0
INTEGER ()) 0 '1') ()) 0 () () 0 0)
61 'array' '' 'array' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DIMENSION DUMMY) (REAL 4 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ())
0 '1') ()) 0 () () 0 0)
60 'lun' '' 'lun' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
38 'lun' '' 'lun' 37 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
39 'array' '' 'array' 37 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 ASSUMED_SHAPE (CONSTANT
(INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (INTEGER 4 0 0 INTEGER ())
0 '1') ()) 0 () () 0 0)
27 'lun' '' 'lun' 26 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (
INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () 0 0)
28 'array' '' 'array' 26 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER (())) 0 0 () (2
ASSUMED_SHAPE (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () (CONSTANT (
INTEGER 4 0 0 INTEGER ()) 0 '1') ()) 0 () () 0 0)
)

('csv_file' 0 14 'csv_next_record' 0 15 'csv_write_char' 0 10
'csv_write_char_1d' 0 9 'csv_write_char_2d' 0 8 'csv_write_dble' 0 4
'csv_write_dble_1d' 0 3 'csv_write_dble_2d' 0 2 'csv_write_integer' 0 13
'csv_write_integer_1d' 0 12 'csv_write_integer_2d' 0 11 'csv_write_real'
0 7 'csv_write_real_1d' 0 6 'csv_write_real_2d' 0 5)
